home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / MHZR.T < prev    next >
Text File  |  1993-11-27  |  3KB  |  94 lines
  1.     ::    mhzr.t    Megahertz Rockwell chip modems
  2. dialnum        
  3.     pat; pat 9l OK
  4.     put "ATE1S0=0\r";  wait -f2
  5.     if "!9"  gosub waketb    :: get modem to respond
  6.     put "AT&F&D2&C1V1W1X4S0=0S7=45&T5\045C2S36=1&K3\r"
  7.     wait -f2
  8.     put "AT"
  9.     if js2,a_mnp put "S36=5&K3"
  10.     else if js2,mnp put "S36=4&K3"
  11.     if js2,_s put "&K5 "
  12.     if is5,300  put "F1"
  13.     if is5,1200 put "F4"
  14.     if is5,2400 put "F5"
  15.     if is5,4800 put "F6"
  16.     if is5,7200 put "F7"
  17.     if is5,9600 put "F8"
  18.     if is5,12000 put "F9"
  19.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  20.     if "%s3>8" put "S7=70"        : longer wait if long distance
  21.     put "Q0S10=10V1\r"; wait -f2
  22.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  23.     if %alds if ps3,0 putw "ATS8=10\r"
  24.     put "%mprefix";  put "%s3%alds";  dis -Q
  25.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  26.     put "\r";  dis -t
  27.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  28.     pat 1 "CONNECT\r"; pat 2l "NO CARRIER"; pat 3l "BUSY"; pat 4 RING;
  29.     pat 5l "ECT 12"; pat 6l "ECT 24"
  30.     pat 8l "NO DIALTONE"; pat 10l "CONNECT 300"
  31.     pat 11l "CONNECT 96"; pat 12l "CONNECT 192"
  32.     pat 13l "VOICE"; pat 14l "NO ANS"; pat 15l "CONNECT 4800"
  33.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  34.     pat 19l "ECT 38400"; pat 20i "ERROR";
  35.     pat 21l "ECT 57600";  pat 22l "ECT 115200"
  36.     wait -f72
  37.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  38.     sets s8 %y2
  39.     if "n||8||9||2||3||4||13||14||20" goto sorry
  40.     dis -d
  41.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  42.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  43.     if !%s1 goto ns1
  44.     if !Js1,_s handshake slow; lput "Handshake SLOW: "
  45.     echo "Speed Locked"; goto mm2end
  46. ns1:    if "h/ALT" echo "V.42/MNP Connected";  handshake both; goto mm2end
  47.     if "h/LAP" echo "V.42/MNP Connected";  handshake both; goto mm2end
  48.     if js2,mnp set s2 ""
  49.     if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  50.     if "1||10" sp 300 goto mm2end
  51.     if 5 sp 1200 goto mm2end
  52.     if 6 sp 2400 goto mm2end
  53.     if 15 sp 4800; goto mm2end
  54.     if 11 sp 9600; goto mm2end
  55.     if "12" sp 19200; goto mm2end
  56.     if "18" sp 14400; goto mm2end
  57.     if "19" sp 38400; goto mm2end
  58.     if "21" sp 57600; goto mm2end
  59.     if "22" sp 115200; goto mm2end
  60.     echo "Unknown Connect Message!!"
  61.     return
  62. sorry:    echo "No Connect Message Detected."
  63.     return
  64. mm2end:    set s9 "y"
  65.     return
  66.  
  67. call2    bye; sp 38400
  68.     if "!jbaudstr,baud4" echo "Must use baud4.t!!"; abort
  69.     gosub waketb; pat 1 OK; ena -t
  70.     put "AT\r"
  71.     wait -f2
  72.     put "ATH0M0S0=1\\K1\\N7\\Q3\r"
  73.     wait -f2
  74.     z pb1    : send break when recovering from ZRPOS
  75.     handshake on
  76.     return
  77. call1    bye; bye; sp 38400; handshake off; gosub waketb; putw ATM0H1\r"
  78.     return
  79.  
  80.  
  81.     : initializes the NVRAM 
  82.     : "call init,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  83.     :
  84. initmodem
  85.     speed 19200; ena -t
  86.     putw "AT&FE1\r"
  87.     if js0,aa put "ATS36=7"
  88.     else putw "ATS36=1"
  89.     putw "&D2&C1V1W1X4S0=0&T5\045C2Q0\r"
  90.     if js0,aa putw "ATE0Q0S0=2Q3\r"
  91.     putw "AT&W\r"
  92.     return
  93.  
  94.